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Machine Requirements 

The 1401 cobol processor can compile an object pro- 
gram for any ibm 1401 system that has at least 4,000 
positions of core storage. To process the cobol source 
program, the 1401 must have at least: 

• 4,000 positions of core storage 

• Four ibm magnetic-tape units 

• ibm 1403 Printer, Model 2 

• ibm 1402 Card Read-Punch 

• Advanced Programming Feature 

• High-Low-Equal Compare Feature 

• Sense switches. 

A minimum of 8000 positions of core storage is re- 
quired if a prescan diagnostic run (described later in 
this publication ) is to be performed. 

The 1401 on which the object program is to be exe- 
cuted must have: 

1. Sufficient core storage to contain the program pro- 
duced by the cobol processor. If the object program 
requires more than the available core-storage capac- 
ity, either the program must be executed in sections 
(overlays) or the job must be divided into multiple 
runs. This is a significant consideration when 
cobol is to be used on systems with 4000 posi- 
tions of main storage. 

2. The object machine must have the input and output 
units defined in the file-control paragraph. 

3. Advanced Programming Feature. 

4. High-Low-Equal Compare Feature. 

5. Sense switches when they are referred to in the 
special-names section. 

6. Multiply-Divide Feature if any of these entries ap- 
pears in the Procedure Division of the cobol source 
program: 

a. multiply verb 

b. divide verb 

c. compute verb when either /, *, or ** is used as 
the operator. 

Operating Functions 

The cobol system contains several processing functions 
that facilitate compiling and interpreting cobol pro- 
grams. These functions are: 

• Copying the pid tape. 

• Creating the cobol processor and extraction tapes. 

• Printing cobol phase listings. 

• Punching cobol subroutines and sample programs. 



• Placing cobol subroutines in the Autocoder library. 

• Compiling cobol source programs (cobol to Auto- 
coder). 

• Assembling cobol output (Autocoder to machine 
language). 

• Loading the object program. 

• Duplicating the 1401 cobol processor system tape. 

• Obtaining storage and tape prints for apars. 

The 1401 cobol processor is a self-loading magnetic 
tape. It should be labeled 1401 COBOL Processor Sys- 
tem with the current version number and modification 
level of the program. 

1401 COBOL Extraction System is a self-loading 
program written on magnetic tape. This program is 
used to print a listing of the cobol processor system, to 
punch the cobol subroutines deck used to update an 
Autocoder system tape, to punch the sample program: 
Table of Salaries (see Operating Functions). 

The Table of Salaries in the sample problem is an 
example of how a computer can be directed by using 
cobol language to compute a set of values and list 
them in tabular form on the printer. The sample pro- 
gram is written in cobol source language and must be 
compiled and assembled before an object run can be 

made. 

To assemble the compiled output of the 1401 cobol 

processor, the user's 1401 Autocoder system tape (the 
latest version and modification level) should be used. 
This tape must have been updated with the cobol sub- 
routines deck and should contain the specific IOCS 
appropriate to the user's needs (see Placing COBOL 
Subroutines in the Autocoder Library). 

Operating instructions for using each of these items 
are included in this publication. 

In addition to the material presented here, the pro- 
grammer should be familiar with the material given in 
the 1401 Systems Reference Library ( SRL) publication 
that describes the ibm 1401 configuration for which the 
program is written. These are listed with form numbers 
in the IBM 1401 Bibliography ( A24-1495). 

The user must be familiar with the information con- 
tained in COBOL (on Tape) Specifications for IBM 
1401 (C24-1492) and the IBM COBOL General Infor- 
mation Manual (F28-8053). Together they provide pro- 
grammers with sufficient information to enable them to 
write programs in the 1401 cobol. To use the available 
features of* the cobol language and the cobol system 
effectively, the user should have a thorough under- 
standing of this material. 



Copying the PID Tape 

The tape labeled 1401 COBOL PID Tape, sent by the 
ibm Program Information Department, can be copied 
as follows: 

1. Mount the pid tape on tape unit 1. 

2. Ready tape 2. 

3. Set sense switch G on (up). 

4. Press check reset. 

5. Press start reset. 

6. Press tape load. 

7. At the end of a successful run, a programmed halt 
occurs with the A-address register containing 003 . 

8. Remove the tapes from units 1 and 2. 

9. File-protect the tape from unit 2 and label it: 1401 
COBOL PID Tape. 



Creating COBOL Processor and 
Extraction Tapes 

The tape labeled 1401 COBOL PID Tape, sent by the 
ibm Program Information Department, is used for this 
operation. This tape is a self-loading program that pro- 
duces a 1401 COBOL Processor System tape and a 1401 
COBOL Extraction System tape. To obtain these tapes: 

1. Mount the pid tape on tape unit 1. 

2. Ready tapes 2 and 3. 

3. Press check reset. 

4. Press start reset. 

5. Press tape load. 

6. At the end of a successful run, a programmed halt 
occurs with the A-address register containing 002 . 

7. Remove the tapes from the tape units and file-pro- 
tect them. 

8. Label the tape from unit 2: 1401 COBOL Processor 
System with Prescan. 

9. Label the tape from unit 3: 1401 COBOL Extraction 
System. 

If more than ten read or write errors are encountered 
for a given record while copying the pid tape or creat- 
ing the cobol processor and extraction tapes, a pro- 
grammed halt occurs with the A-address register con- 
taining 004 . Press the start key to reread or rewrite 
the record. 



Printing COBOL Phase Listings 

The tape labeled 1401 COBOL Extraction System, 
which is extracted from the 1401 cobol pid tape, is used 
for this operation. This tape contains a self-loading 
program that can be used to produce a symbolic listing 



of all phases of the 1401 cobol system. To obtain this 
listing: 

1. Place the 1401 COBOL Extraction System tape on 
tape unit 1. 

2. Press check reset and start reset. 

3. Press tape load. The program will stop at 364. 

4. Press start to produce the listing. 

5. After all phases have been printed, the program 
halts at 600. 

6. Press start reset and start to rewind the tape, or 
press start to punch the subroutines and the sample 
program. 



Punching COBOL Subroutines, Sample Program 

To punch subroutines and the sample program: 

1. Place the 1401 COBOL Extraction System tape on 
tape unit 1. 

2. Press check reset and start reset. 

3. Press tape load. The program will stop at 364. 

4. Press start reset and start. 

5. After the cobol subroutines and the sample problem 
have been punched, the program will stop at 709. 

6. The cobol subroutine decks and the sample problem 
decks should be separated and labeled for identifica- 
tion as follows: 

a. The deck with the identification number 70001 
punched in columns 76-80 should be labeled: 
4K COBOL Subroutines. 

b. The deck with identification number 70002 
punched in columns 76-80 should be labeled: 
> 4K Subroutines. 

c. The deck with identification number 70003 

punched in columns 76-80 should be labeled: 
COBOL Sample Program. 

Placing COBOL Subroutines in the 
Autocoder Library 

In this operation, an Autocoder system tape is up- 
dated to contain the routines needed to assemble the 
machine-language object program from the symbolic 
statements that the cobol processor produces from the 
cobol source program. 

The Autocoder system tape used should contain the 
specific IOCS and macro combinations appropriate for 
the user. This choice should be made according to the 
following criteria: 
1. If the user wants overlapped IOCS instructions to 

be generated, the Autocoder tape must contain 

IOCS with overlap. 
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2. If the user wants non-overlapped IOCS instructions 
to be generated by the Autocoder system, the Auto- 
coder tape must contain IOCS without overlap. 

3. If the user wants non-overlapped IOCS instructions 
to be generated by the cobol system ( regardless of 
the object-computer entry), the Autocoder tape 
must contain those macros that will be used by the 
source program while in the enter autocoder mode. 
If full label checking is used, the rdlin macro should 

be included. 

cobol subroutines must be used to update the ap- 
propriate Autocoder tape for assemblies to be run on 
an ibm 1401 Data Processing System. 

To update the Autocoder tape: 

1. Place a current version of 1401 Autocoder on tape 
unit 1. 

2. Ready a tape on tape unit 6. 

3. Place either the 4K or > 4K COBOL subroutines in 
the card reader, depending on the size of the 
object machine used. 

4. Turn on sense switches A and F. 

5. Press start reset. 

6. Press tape load. 

7. After the Autocoder system tape has been updated, 
the message 1401 autocoder system copied on tape 
unit 6 will be printed. 



Duplicating the 1401 COBOL 
Processor System Tape 

To make a copy of the 1401 cobol processor: 

1. Place the tape labeled 1401 COBOL Processor Sys- 
tem with Prescan on tape unit 1. 

2. Ready a working tape on tape unit 2. 

3. Place these two control cards in the card reader. 



Card 


Columns 


Content 


1 


6-12 


SYSTEMS 




16-18 


RUN 


2 


16-18 


END 



4. Turn on i/o check stop. 

5. Turn on sense switch A. 

6. Press check reset. 

7. Press start reset. 

8. Press tape load. 

9. Press start. (Because there are only two control 
cards, the start key must be pressed a second time 
to read in the end control card.) 



10. After the tape has been duplicated, a program- 
med halt occurs; the A-address register contains 
040, and the message new system on unit 2 is 
printed. 



Performing a Prescan Diagnostic Run 

A prescan diagnostic run, a separate and optional run, 
checks the cobol source program before compilation. 
Input is from cards only. An end of source card ( see 
Compiling COBOL Source Programs), although it is 
not required and has no function in a prescan run, 
can be included at the end of the cobol source pro- 
gram. To perform a prescan diagnostic run: 

1. Mount the 1401 cobol processor system tape on 
tape unit 1. 

2. Mount scratch tapes on tape units 4, 5, and 6. 

3. Turn on sense switch A. 

4. Place the following control card ahead of the 
COBOL source program in the card reader: 

Columns Content 

6-9 DIAG 

16-18 RUN 

Note: A cobol run card must not be used in the pre- 
scan run. 

5. Press check reset and start reset. 

6. Press tape load. 

7. Press start when the machine halts. (This causes 
the last card from the reader to be read, and pre- 
scan processing to begin. ) 

When the prescan run is complete, the machine 
halts. The B-address register contains 999. 



Prescan Run Output 

The output from the prescan diagnostic run is in 
printed form, and includes at most, three separate 
listings: a source program listing, a name listing, and 
a sentence-structure-error listing. 

Source Program Listing: This listing contains the 
cobol source program (including sequence num- 
bers), and always appears in the prescan output. 
A sequence error in the listing is identified by an 
asterisk ( * ) following the sequence number. 
Name Listing: This listing contains all the procedure 
and data names used in the source program, plus 
an indication of the type of each data name. The 
name listing always appears in the prescan output. 
A name that refers to more than one field ( multide- 
fined) is identified by an M between the name and 



its type indication. The M appears for all multide- 
fined names, whether qualified or not, and serves 
as a warning that such names require qualification. 
A cobol keyword, used incorrectly, is flagged by 
the word keyword preceding the type indication. 
(For examples of the name-associated diagnostics, 
see COBOL Diagnostic Usage. ) 
Sentence -Structure -Error Listing: This listing consists 
of sentence-structure-error diagnostics generated 
during the prescan run. It appears only if errors 
were made in any of the cobol sentences in the 
source program. (The sentence-structure-error diag- 
nostics are more fully explained under COBOL 
Diagnostic Usage. ) 



Compiling COBOL Source Programs 
(COBOL to Autocoder) 

In this operation, the cobol source program and the 
cobol processor system tape are used. The processor 
compiles and assembles the object program in Auto- 
coder language. The 1401 cobol processor prints a list- 
ing of cobol source statements followed by the Auto- 
coder expansion of these statements at assembly time 
if desired by the user. This optional source-symbolic 
listing is controlled by sense switch G at compilation 
time. 

Either the card reader or a program library tape can. 
be used to supply the source program to the cobol 
processor. Two control cards regulate this process. 

1. The cobol run card conveys to the compiler a re- 
quest for a cobol compilation, the input option re- 
quested, and the program to be run ( if the tape op- 
tion was requested). The format of the cobol run 
card is: 



Columns 

6-10 

16-18 

21-35 

79-80 



Content 



15-character identification (only re- 
quired when tape option is used ) 
% □ ( request for tape input ) 
bb ( request for card input ) 



2. The end of source card follows the last card of the 
source program. It is required when the source pro- 
gram is written on tape and when the source pro- 
gram is stacked in the card reader. Its format is : 



Columns 
1-13 



Content 

END OF SOURCE 



If the user desires to use the program library feature, 
the following requisites must be met: 

1. The set of source programs must be recorded as one 
file, followed by a tape mark, and must be recorded 
as eighty-character move-mode records. (The 1401 
Multiple Utility Program will create this tape.) 

2. Each source program must be preceded by a cobol 
run card and followed by an end of source card. 

3. Each cobol run card must have a unique identifica- 
tion in columns 21-35 for the processor to select the 
correct source program ( the %D punches are not re- 
quired in the cobol run card images on tape). If the 
processor fails to find the programs requested, it will 
rewind the library tape and search it once more. 
After compilation, the library tape will be posi- 
tioned at the next cobol run card. The cards placed 
into the card reader may consist only of cobol run 
cards with %U punched in columns 79 and 80 (re- 
questing input from the program library), a single 
card deck (cobol run, source deck), a stack of card 
decks (cobol run, source deck, end of source, 
cobol run . . .), or any combination of the above. 

The following restrictions apply to the use of the 
cobol run and end of source cards: 

1. If input is to be from the card reader, the cobol 
run card must not have the %□ punches in columns 
79 and 80. 

2. If the input is from the card reader, only the last 
source program need not have an end of source 
card. 

To compile the cobol program: 

1. Place the tape labeled 1401 COBOL Processor Sys- 
tem on tape unit 1. 
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2. Ready the tapes on tape units 4, 5, and 6. 

3. Ready a tape on tape unit 3 if the cobol source 
symbolic listing option is used. 

4. Turn on i/o check stop. 

5. Turn on sense switches A and C. Turn off sense 
switches B, D, and E. 

6. Turn on sense switch F if IOCS generation by 
cobol is not desired, or if the overlap feature is 
used in the object program. 

7. Turn on sense switch G if the cobol source sym- 
bolic listing option is used. 

8. If this is the initial compilation of a stacked job or 
the compilation of a single program, place the 
cobol run card(s) and/or the source deck(s) in the 
card reader. 

If the program library option is used (%□ in 
columns 79 and 80 of single cobol run card(s)), 
mount the program library tape on unit 2. 

9. Press check reset. 

10. Press start reset. 

11. Press tape load. 

12. Press start. 

13. When card reading stops, press the start key to 
read in the last card. 

14. At the end of a successful compilation, the mes- 
sages printed are: 

IF EXTRA OUTPUT DESIRED 

B ON FOR PUNCHED AUTOCODER 

D ON FOR PRINTED LISTING 

AND PRESS START 

IF NO EXTRA OUTPUT DESIRED, PRESS START 

15. After a successful compilation, the symbolic ob- 
ject program can be assembled. However, any 
errors indicated by diagnostics flagged by ** 
should be corrected before the symbolic object 
program is assembled. 

16. If a symbolic listing is desired before assembly, 
turn on sense switch D and press start. 

17. If a punched symbolic deck is desired, turn on 
sense switch B and press start. A symbolic listing 
and symbolic deck can be obtained by turning on 
sense switches B and D and pressing start. This 
sense-switch option can be used after the compila- 
tion has been completed and the message (de- 
scribed in item 13) has been printed. 

18. When no more output is desired, turn off sense 
switches B and D and press start. 

19. At the end of compilation, the tape on tape unit 4 
will contain the symbolic program. ( The symbolic 
program will have been punched also if the option 



in item 16 was used.) The message end of com- 
pilation — autocoder on tape 4 will be printed. 



Assembling Autocoder Output 
(Autocoder to Machine Language) 

The output from the cobol compilation process is the 
object program in Autocoder language. To assemble 
the machine-language object program: 

1. Place a current version of 1401 Autocoder (with 
cobol subroutines) on tape unit 1. 

2. Ready tapes on tape units 4, 5, and 6. 

3. Ready a tape on tape unit 3 if the cobol source pro- 
gram specified assign object program to tape. 

4. If card input is used, perform these eleven steps: 

a. Turn on sense switch A. 

b. Turn on i/o check stop. 

c. Place the Autocoder program deck in the card 
reader. 

d. Press check reset. 

e. Press start reset. 

f . Press TAPE LOAD. 

g. If assign object program to tape was not speci- 
fied, turn on the card-read punch. 

h. Press start. 

i. When card reading stops, press start to read in 
the last card. 

j. At the end of assembly, the message end of as- 
sembly will be printed. 

k. Press start. 

5. If tape input is used, perform these eight steps. 

a. Turn on sense switches A and C. 

b. Turn on i/o check stop. 

c. Press check reset. 

d. Press start reset. 

e. Press tape load. 

f . If assign object program to tape was not speci- 
fied, turn on the card read-punch and press start. 

g. At the end of assembly, the message end of as- 
sembly will be printed. 

h. Press start. 



Loading the Autocoder Object Program 

To load the object program into the object computer: 

1. If the object program is in punched-card form (in- 
stead of on tape), place the object deck in the card 
reader and turn on the reader. 

2. If the assign object program to tape option was 
used in the cobol source program, place the Auto- 



coder output ( the object program that was on tape 
unit 6 at the end of the Autocoder assembly) on tape 
unit 1. 

3. Press CHECK RESET. 

4. Press start reset. 

5. Turn on sense switch A and i/o check stop. 

6. If the object program is in card form, press program 
load. If the object program is on tape, press tape 
load. 



Obtaining Storage and Tape Prints for APAR's 

If difficulty is encountered during the processing of a 
cobol program, and the cobol processor is the cause 
of the error: 

1. Set the manual address switches to 0359. 

2. Set the mode switch to alter. 

3. Press check reset. 

4. Press the I-address register key. 

5. Press start reset. 

6. Press start. 

7. Set the mode switch to run. 

8. Press start. 

9. The contents of core storage and tapes 4, 5, and 6 
will be printed. 

10. After the tape prints are completed, the message 
tapes 5, 6, and 4 printed will be displayed on the 
listing. 

11. Contact your ibm Systems Engineer to submit an 
APAR (Authorized Programming Analysis Report). 

Note: If during the tape print program bad records cannot be 
bypassed, branch manually to 1729. 



COBOL Dictionary 

After the cobol source program and diagnostic mes- 
sages have been printed, the cobol dictionary is listed. 

The cobol dictionary is divided into three sections: 
Special Names 
Data Names 
Procedure Names 

In each section, all names used in the source program 
are listed beside the sequence number and the com- 
pressed cobol name developed during compilation by 
the cobol processor. This makes it possible to cross- 
reference items in the cobol source-program listing 
and the Autocoder symbolic listing. 

Figure 1 shows a sample cobol dictionary. The line 
labeled \Dj in Figure 1 refers to the procedure name 



*** COBOL 


DICTIONARY*** 


SPECIAL NAMES 




(A) 8 A16 


PUNCH 


9 A1U 


PUNCH-A-CARD 


10 A15 


PUNCH-AND-PRINT 


DATA NAMES 




® 19 A10 


STATE-TAPE 


© 27 ALL 


PRINTER 


PROCEDURE NAMES 




© U9 J08 


HSKP 


© 50 J02 


BEGIN 


© 51 J05 


CHECK-C 



Figure 1. cobol Dictionary 



begin which appears in the sample cobol source pro- 
gram shown in Figure 2. The cobol processor assigned 
begin the compressed name J02 and assigned the cobol 
statement the sequence number 50. In the symbolic 
listing of the Autocoder expansion (Figure 3), the 
cobol processor has used the compressed name J02 as 
the label for the equ statement labeled (d) . 

To refer to the cobol source paragraph or statements 
that produced a particular expansion on the symbolic 
listing, look at the compressed cobol name and find its 
equivalent in the cobol dictionary. For example, the 
entry labeled (b) on line 19 of the symbolic listing is 
used as state-tape in the cobol source list. This entry 
also appears in the data-names section of the cobol 
dictionary. 
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Prescan Diagnostics 

An optional prescan diagnostic run can be performed 
by using the 1401 cobol processor system to check the 
source program for errors before compilation. 

Two types of diagnostic messages can be generated 
during a prescan run. The first type is name-associ- 
ated. The name associated messages appear as flags 
in the dictionary and refer to such errors as cobol 
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keywords used as data names. The following is an 
example of name-associated diagnostics: 

TYPE SOURCE 



SPEC M 

SPEC 
SPEC 
SPEC 
FILE 
REC M 

DATA 
** KEYWORD DATA 
DATA 



CARDS 

PRINTER 

OVERFLOW 

LAST-CARD 

STATUS-FILE 

CARDS 

CARD-ORDER 

DIGIT 

RECORD 



40 CONFIGURATION SECTION. 

50 SOURCE-COMPUTER. IBM-1401. 

60 OBJECT-COMPUTER. IBM-1401 NO- 
OVERLAP 

70 SPECIAL NAMES. 

80 1402-R IS READER 

90 1402-P IS PUNCH 

100 AUTON IS COBOLN 

110 AUTOZ IS COBOLZ 

120 1401-SS A ON STATUS IS LAST-CARD. 

130 DATA DIVISION. 



230 PROCEDURE DIVISION. 



In the preceding example, the cobol keyword, 
digit, was used as a name, and flagged. In addition, 
the name, cards, was used more than once in the 
source program and was flagged as being multide- 
fined. If cards has not been qualified in all its uses, 
an error exists. 

The second type of prescan diagnostic message 
describes problems encountered while analyzing the 
sentence structure of the source program. In the list- 
ing, the sequence number of the card containing the 
error statement relates that which should have been 
coded to that which was coded, If, in order to continue 
analysis of the source program, any part of the source 
program is dropped, the dropped item(s) are in- 
cluded as part of the diagnostic message. In special 
cases, the expected part of the diagnostic message 
might be replaced by a language term or a rule de- 
scribing a requirement of the cobol language, such as: 

ENVIRONMENT DIVISION MUST PRECEDE DATA DIVISION. 

To correct program errors of this type, the pro- 
grammer should analyze the diagnostics in sequence. 
Also, the correction process can be greatly facilitated 
if the programmer compares the source program error 
statement with the corresponding COBOL-prescribed 
format outlined in the SRL publication COBL (on 
Tape) Specifications for IBM 1401, Form C24-1492. 
Note, however, that items dropped as a result of an 
error in sentence structure are not analyzed prior to 
their deletion. 

The following is an example of analyzing cobol 
diagnostics: 
COBOL SOURCE PROGRAM 



SEQUENCE 



CARD IMAGE 



280 PARAGRAPH2. 

290 IF COBOLZ IS EQUAL TO REF1 OR 

LESS 
300 OR GREATER THAN 2 OR NOT LESS 

310 THAN 7 THEN GO TO GOBOLN. 

320 PARAGRAPH3. 



COBOL DIAGNOSTICS 

SEQUENCE COMMENTS 

120 AUTOCODER NAME/7=1401-SS= 
300 INVALID SUBJECT OR OBJECT=OR= 

From the preceding example, first consider the se- 
quence number 120. This diagnostic means that in se- 
quence number 120, either an Autocoder name or a 
period was expected. Instead, 1401-SS was sensed. As 
shown in the reference-format section of the COBOL 
(on tape) Specifications SRL publication, the special 
names paragraph is: 
SPECIAL-NAMES . 



device-name-1 IS mnemonic-name-l\ device-name-2 IS 



D 



mnemonic-name-2 



switch-name- 1 



ON 



STATUS IS condition-name -1 



] 



OFF 



OFF STATUS IS condition-name 



'1 






switch-name-2 



swi 



30 



ENVIRONMENT DIVISION. 



[■ 






AUTOCODER-name IS COBOL-name AUTOCODER 



L' 



]) 



11 



The switch-name clause in sequence number 120 
(1401-SS etc.) should have preceded the Autocoder- 
name clauses in sequence numbers 100 and 110. 

Secondly, consider sequence number 300. This diag- 
nostic indicates that the error is in sequence number 
300. A valid subject or a valid object was expected; 
or was sensed. As shown in the COBOL (on tape) 
Specifications SRL publication, the format for rela- 
tional conditions is defined: 



~\ literal / 

{arithmetic expression ) 



\ data-name 
\ literal 



IS [ NOT ] GREATER TIIANJ 
IS [NOT] LESS THAN ( 

IS [NOT] EQUAL TO J 



( data-name i 

\ literal r 

\ arithmetic expression ) 

In the source statement (sequence 290 and 300), IF 
COBOLZ IS EQUAL TO REF1 OR LESS OR 
GREATER THAN 2 OR NOT LESS, there should be 
a data-name, a literal, or an arithmetic expression after 
less for comparison with the implied subject, cobolz. 
Instead, or was encountered. 

The meanings of the symbols in the sentence-struc- 
ture-error diagnostic message are: 

Symbol Meaning 

PROCEDURE-NAME Blanks bound COBOL-language terms 
and rules. 

'SECTION' Quotes bound literal values expected. 

=RAN= Equal signs bound literal values en- 

countered. 

(ALL TO MASTER) Parentheses bound literal values 
dropped. 

'RUN'/Literal The slash represents the word OR. 



Additional examples of the prescan sentence-structure- 
error diagnostic are: 
620 UNDECLARED NAME = TAPE-ORDER = 
(TAPE-ORDER) 
The sequence number 620 is the number assigned to 
the card containing the statement in error; unde- 
clared name is a language term, bounded by blanks, 
representing an error that was encountered; = tape- 
order = is the undeclared name, bounded by equal 
signs; and (tape-order) is the item dropped, bounded 
by parentheses. 

650 'TO' = ALL = (ALL TO MASTER) 
Sequence number 650 is the assigned sequence num- 
ber of the card containing the statement in error; 
'to' is the literal value, bounded by quotes, expected 
by the compiler; = all = is the literal value, bounded 
by equal signs, encountered during the run; and (all 
to master) is the item dropped, bounded by paren- 
theses. 

Cobol Processor Diagnostics 

The cobol processor analyzes each statement for er- 
rors as it compiles the cobol source program. The 
processor supplies a diagnostic message describing 
the nature of a detected error and prints the mes- 
sage^) (ahead of the cobol dictionary) in this 
format: 

***DIAGNOSTICS*** 



FLAG REFERENCE SEQUENCE 

** B56 14 



MESSAGE ERROR 

FORMAT 
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COBOL COMPILATION 



SEQUENCE CARD-IMAGE 

1 IDENTIFICATION DIVISION. 

2 PROGRAM-ID. STATES/CAPITAL DEBLOCKING AND LISTING. 

3 ENVIRONMENT DIVISION. 
U CONFIGURATION SECTION. 

5 SOURCE-COMPUTER. IBM-1U01 MEMORY SIZE UOOO CHARACTERS 

6 OBJECT-COMPUTER. IBM-1U01. 

7 SPECIAL-NAMES. 

8(A) 1U02-P, U IS PUNCH. 

9 V 1U01-SS, B ON STATUS IS PUNCH-A-CARD 

10 1U01-SS, C ON STATUS IS PUNCH-AND-PRINT. 

11 INPUT-OUTPUT SECTION. 

12 FILE-CONTROL. 

13 SELECT STATE-TAPE 
1U ASSIGN TO TAPE 1. 

15 SELECT PRINTER 

16 ASSIGN TO 1U03-P. 

17 DATA DIVISION. 

18 _ FILE SECTION. 
19(BJFD STATE-TAPE 

20 "^ BLOCK CONTAINS 5 RECORDS 

21 RECORD CONTAINS 81 CHARACTERS 

22 LABEL RECORDS ARE OMITTED 

23 DATA RECORD IS SC-RECORD. 
2U 01 SC-RECORD. 

25 02 FIRST-IP PICTURE IS X5g80n . 

26 02 REC-MARK PICTURE IS X5gln . 
27(fJFD PRINTER 

28 -^ LABEL RECORDS ARE OMITTED 



IDENTIFICATION 



U8 PROCEDURE DIVISION. 

®U9(c)HSKP. OPEN INPUT STATE-TAPE OUTPUT PRINTER. 
50^ BEGIN, READ STATE-TAPE INTO WORK-AREA, AT END GO TO FINISH. 
5l(Y) IF PUNCH-A-CARD GO TO PUNCH ELSE GO TO CHECK-C. 

52 CHECK-C. IF PUNCH-AND-PRINT GO TO BOTH ELSE GO TO PRINT. 



Figure 2. cobol Source Listing 



Flag: This indicates the seriousness of the error. If the 
flag column is blank, the error will not stop compila- 
tion. If a double asterisk appears in the flag column, 
compilation stops and the message compilation sus- 
pended is printed after all statements have been ex- 
amined. 

Reference: This shows the code number of the diagnos- 
tic message. A detailed explanation of the error can 
be found by using this code to look up the associated 
diagnostic in the Diagnostic Reference List. 

Sequence: This refers to the source program statement 
in error. 

Message: This describes the nature of the error. After 
all errors have been analyzed and all diagnostic mes- 
sages have been printed for this phase of compila- 
tion, the message total number of errors is printed 



with a figure indicating the total number of diag- 
nostics that occurred. Then the message compila- 
tion suspended is printed if a double asterisk was 
printed in the flag column for any of the diagnostic 
messages given. If none of the diagnostic messages 
was flagged, the message press start to continue 
is printed, and compilation can be continued. 

Following this first list of diagnostic messages, the 
cobol dictionary is printed. If a name-oriented error 
is detected, a diagnostic message will be printed, 
compilation will be discontinued, and the message 
run discontinued will be printed. 

As compilation continues, discrepancies between 
the Data Division and the Procedure Division will be 
detected. If such errors are found, additional diag- 
nostic messages will be printed in this format. 
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SYMBOLIC 


LISTING 




0136 


FA20 


EQU 


IA11 


0137 




^-n DS 


#50 


0138 


A10 


Cbjds 


00050 


0139 




^ORG 




01U0 




DCW 


a a 


01U1 


LA 12 


EQU 


#+i 


01U2 




^ DC 


#50 


01U3 


A11 


©DC 
v_ ^ORG 


00100 


onm 






01U5 




DCW 


a a 


01U6 


LA13 


EQU 


*+i 


01U7 




DCW 


#50 



0200 




ORG 


OVRLAY 


0201 


STARTS 


EQU 


«+1 


0202 


J08 


©EQU 

B 


«+1 


0203 




IOCOPN 


020U 




NOP 


IA10-17 


0205 




B 


IOCOPN 


0206 




NOP 


IA11-17 


0207 


J02 


(d)equ 

W SBR 


*+l 


0208 




I0CUXT+03,*+11 






* 








* 





Figure 3. Symbolic Listing 



FLAGS 



REFERENCE SEQUENCE COMMENTS MESSAGE 

D14 0113 INVALID EDITING 



Note: Each diagnostic not corrected also appears 
(altered slightly) as an Autocoder comment line, in- 
dicated by an *, in the Autocoder symbolic-program 
listing. 

**: This indicates an error that must be corrected be- 
fore an object run is attempted. 

D14: This is an example of the reference -list code. The 
Diagnostic Reference List contains more detailed 
explanations of the diagnostic messages. 

0113: This is an example of the Autocoder line number 
of the statement. 

*: This is a comments flag to the Autocoder processor. 

Message: This is a general description of the error. At 
the end of compilation, the message number of 
errors needing correction, followed by the message 
total number of diagnostics, may be printed with 
figures indicating the number of errors needing cor- 
rection and the total number of diagnostics. Then 
this message will be printed to show symbolic listings 
and/or symbolic punched-card options: 

if extra output desired 
b on for punched autocoder 
d on for printed listing 
and press start 

if no extra output desired, press start 
(Also see Operating Functions.) 



Diagnostic Reference List 

Format Error Messages 

These diagnostic messages will be given for format er- 
rors that occur in the divisions under which they are 
listed. In cases where these diagnostic messages appear, 
the format specified should be carefully reviewed for 
errors. No reference code is given for these diagnostic 
messages. 



Environment Division 

1. FORMAT ERROR- 

2. FORMAT ERROR- 

3. FORMAT ERROR- 

4. FORMAT ERROR- 

5. FORMAT ERROR- 

6. FORMAT ERROR- 

7. FORMAT ERROR- 

8. FORMAT ERROR- 

9. FORMAT ERROR- 

10. FORMAT ERROR- 

11. FORMAT ERROR- 

12. FORMAT ERROR- 



Data Division 

1. FORMAT 

2. FORMAT 

3. FORMAT 

4. FORMAT 

5. FORMAT 

6. FORMAT 

7. FORMAT 

8. FORMAT 

9. FORMAT 

10. FORMAT 

11. FORMAT 

12. FORMAT 

13. FORMAT 

14. FORMAT 

15. FORMAT 



Format 
ERROR- 
ERROR- 
ERROR- 
ERROR- 
ERROR- 
ERROR- 
ERROR- 
ERROR- 
ERROR- 
ERROR- 
ERROR- 
ERROR- 
ERROR- 
ERROR- 
ERROR- 



Formaf Errors 

—ASSIGN 

-DEVICE NAME 1403-CT 

-DEVICE NAME 1403-P 

-SWITCH NAME 1403-P-CB 

-MEMORY SIZE 

-SWITCH NAME 1403-P-C9 

-DEVICE NAME 1402-P 

-DEVICE NAME 1402-R 

-SELECT 

-RESERVE ALTERNATE AREA 

-SWITCH NAME 1403-SS 

-SWITCH NAME 1403-P-CV 

Errors 

-FD 

-RECORDING MODE 

-BLOCK CONTAINS 

-RECORD CONTAINS 

-LABEL RECORD 

-VALUE OF 

-DATA RECORD 

-SIZE 

-REDEFINES 

-OCCURS 

-POINT LOCATION 

-PICTURE 

-JUSTIFICATION 

-LEAVING 

-VALUE 



Procedure Division Format Errors 

1. FORMAT ERROR — MOVE 

2. FORMAT ERROR — OPEN 

3. FORMAT ERROR — MULTIPLY 

4. FORMAT ERROR — GO TO 

5. FORMAT ERROR — DISPLAY 

6. FORMAT ERROR — SUBTRACT 

7. FORMAT ERROR — ADDITION 

8. FORMAT ERROR DIVIDE 

9. FORMAT ERROR — ALTER 

10. FORMAT ERROR — ACCEPT 

11. FORMAT ERROR — CLOSE 

12. FORMAT ERROR — WRITE 

13. FORMAT ERROR — READ 

14. FORMAT ERROR — COMPUTE 

15. FORMAT ERROR — STOP 

16. FORMAT ERROR PERFORM 

17. FORMAT ERROR IF 
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Diagnostic Error Messages Inserted during Compilation 

Reference 
Number Division 



A01 Environment 



Message 

NEXT CARD OUT OF SEQUENCE 



A02 Environment format error — continuation 

Data Procedure of alphanumeric literals 



A03 Environment numeric literal exceeds 

Data Procedure legal length 



Comments 

The page and line number combination in the next source pro- 
gram card is not higher in value than that in the preceding card. 

If an alphanumeric literal is to be continued, a — symbol must 
appear in column 7 of the next source program statement line. 
Also, all lines containing alphanumeric literals must be enclosed 
in quote symbols. These lines can begin and end in any columns 
within the range of 12 through 72. 

A numeric literal intended for computational use must have 
from one to 18 numerals. Other numeric literals can contain as 
many as 120 characters. 



A04 Environment name exceeds legal length 

Data Procedure 



cobol names may be one to thirty characters long. 



A05 Environment alphanumeric literal exceeds 

Data Procedure legal length 

A06 Environment special character must be an 

Data Procedure alphanumeric literal 



Alphanumeric literals can contain from 1 to 120 characters in- 
cluding blanks and special characters. 

Special characters not contained in the cobol set may only be 
used in alphanumeric literals. Figure 4 shows the special char- 
acters included in the cobol set. 



A07 Procedure 



ONLY AUTOCODER CAN BE ENTERED 
FROM COBOL 



There is no provision in cobol to enter any other language 
format except Autocoder. This is accomplished by using the 
enter verb. 



A08 Identification program-id not sensed 



A program-id paragraph must be present in every cobol source 
program. 



A09 Identification 
B01 Procedure 
B02 Procedure 



identification division not 
sensed 



PERIOD MUST BE FOLLOWED BY VERB 
PARAGRAPH OR SECTION NAME 



PERIOD MUST FOLLOW PARAGRAPH 
OR SECTION 



An Identification Division statement must be present in every 
cobol source program. 

The cobol statement in reference must be followed by a verb, 
paragraph, or section name. 

A period must be used to terminate the paragraph or section 
name in reference. 



Card Code 


COBOL 


7407 


Meaning 


Blank 






space 


11 


- 


- 


| minus sign 
{ hyphen 


12 


+ 


& 


plus sign 


0-1 


/ 


/ 


division sign 


11-4-8 


* 


* 


( multiplication sign 

\ check protection symbol 


12-4-8 


) 


n 


right parenthesis 


0-4-8 


( 


% 


left parenthesis 


0-3-8 


, 


, 


comma 


11-3-8 


$ 


$ 


dollar sign 


12-3-8 




• 


| period 

( decimal point 


3-8 


= 


# 


equal sign 


4-8 


' 


@ 


quotation mark 



Figure 4. Special Characters 
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Number 

Reference Division 

B03 Procedure 



Message 



KEYWORD DIVISION MUST BE 
FOLLOWED BY A PERIOD 



Comments 
A period must follow each division name. 



B04 Procedure 

B21 Environment 

B22 Environment 

B23 Environment 

B24 Environment 

B25 Environment 



KEYWORD DIVISION NOT SENSED 



The complete name of every division must appear in all source 
programs. 



configuration section not sensed Each source program must contain a configuration section. 



KEYWORD SOURCE-COMPUTER MUST 
FOLLOW CONFIGURATION SECTION 

IBM-1401 CLAUSE NOT SENSED 



INVALID ENTRY 



KEYWORD FILE-CONTROL MUST 
FOLLOW INPUT-OUTPUT SECTION 



The first entry in the configuration section must be the 
source-computer statement. 

The source program must indicate the types of computers being 
used for both processing and executing the cobol program. 

The statement in reference is not valid in a cobol source pro- 
gram. 

The file-description entries must follow the input-output sec- 
tion statement. 



B26 Environment 



B27 Environment 



B28 Environment 



PERIOD MUST FOLLOW PARAGRAPH 
SECTION OR DIVISION 



PERIOD MUST FOLLOW ENTRY 



KEYWORD SECTION NOT SENSED 



A period must be used to terminate a paragraph, section, or 
division. 

Review this entry using the sequence reference. This entry must 
be terminated by a period. 

The keyword section must appear in these entries : 

FILE SECTION 

WORKING-STORAGE SECTION 
CONSTANT SECTION 



B29 Environment 



B31 Procedure 



B41 Data 



B42 Data 



KEYWORD DIVISION NOT SENSED 



MISSING PERIOD AT END OF PROGRAM 



WORKING-STORAGE SECTION OUT OF 

SEQUENCE 



CONSTANT SECTION OUT OF 
SEQUENCE 



The complete name of every division must appear in all source 
programs. 

The last entry of all source programs must be terminated by a 
period. 

The WORKING-STORAGE SECTION must follow the FILE SECTION ill 

the Data Division. 

If the source program has a working-storage section, the con- 
stant section must immediately follow it. If the source pro- 
gram does not have a working-storage section, the constant 
section must follow the file section. 



B43 Data 

B44 Data 

B45 Data 

B46 Data 

B47 Data 

B48 Data 



recording mode must be 1 



DATA RECORDS CLAUSE MUST 
BE IN FD 



LABEL RECORDS CLAUSE MUST 
BE IN FD 



DUPLICATE RECORDING MODE CLAUSE 



DUPLICATE BLOCK CONTAINS CLAUSE 



DUPLICATE RECORD CONTAINS 
CLAUSE 



All 1401 cobol programs must specify a recording mode of 1. 

Each fd must end with a data records clause. This permits the 
processor to cross-reference the file-description entry and the 
individual record-description entries of each record. 

This label records clause must always be present in a file 
description entry. 

This statement can be removed from the source program. 

This statement can be removed from the source program. 

This statement can be removed from the source program. 



B49 Data 
B51 Data 



DUPLICATE VALUE OF CLAUSE 



A PERIOD MUST FOLLOW ENTRY 



This statement can be removed from the source program. 
This statement must be terminated by a period. 
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Reference 
Number Division 

B52 Data 



Message 



DATA DIVISION NOT FOLLOWED BY 
VALID SECTION 



Comments 

The Data Division statement must be followed by at least one 

of these sections: 

file section (contains file- and record-description entries) 
working-storage section (contains record-description 

entries ) 
constant section ( contains record-description entries ) 



B53 
B54 



Data 
Data 



duplicate constant section 



DUPLICATE WORKING-STORAGE 
SECTION 



A cobol source program can contain only one constant section. 

A cobol source program can contain only one working-storage 
section. 



B55 



Data 



LEVEL NUMBER MUST BE FOLLOWED 
BY NAME OR FILLER 



All level numbers (01-49, 77 and 78) must be followed by a 
name or by the word filler. 



B56 



Data 



FORMAT ERROR 



This statement is written in an invalid format. 
Error examples : 

1. picture is 999 value is 10 left justified. The statement 
must be written as justified left. 

2. picture is 99v x (10). Blanks cannot be used in a picture in 
this manner. 



B57 Data 



KEYWORD SECTION NOT SENSED 



The word section must appear in these entries : 

FILE SECTION 

WORKING-STORAGE SECTION 
CONSTANT SECTION 



B58 Data 



KEYWORD DIVISION NOT SENSED 



The complete name of every division must appear in all cobol 
programs. 



B85 Data 



FIGCON ALL MUST BE FOLLOWED 
BY ALPHANUMERIC LITERAL 



The all figurative constant generates a sequence of characters 
specified by any non-numeric literal. 



B91 Data Procedure 



MISSING PERIOD BEFORE PROCEDURE 
DIVISION 



The source program statement that precedes the Procedure Divi- 
sion statement must be terminated by a period. 



B92 Procedure 



KEYWORD MUST NOT BE USED 
AS A LABEL 



Words listed as cobol keywords must be used only as specified 
by the cobol language. 



B97 



Data 



DATA DIVISION NOT SENSED 



A Data Division statement must be included in every source 
program. 



B98 Procedure 



PROCEDURE DIVISION NOT SENSED 



A Procedure Division statement must be included in every 
source program. 



B99 



Environment 



ENVIRONMENT DIVISION NOT SENSED 



An Environment Division statement must be included in every 
source program. 



C01 



Procedure 



CONDITION NAMES MUST NOT BE 
USED AS SUBJECTS 



In this example, Nl, N2, and N3 are declared as data names 
with the values defined in the value clauses. 

01 nameI 

02 name2 

88 n1 value is 1 

88 n2 value is 3, 6 

88 n3 value is 7, 11 
Thus, the statement: 

if n2 = 4 then is in error because 

n2 was previously defined as having a value of 3 or 6. 



D01 Data 



picture exceeds 30 CHARACTERS 



A cobol picture description can not contain more than 30 

characters. 

For example: 

The picture description 9(450) consists of six actual charac- 
ters and is, therefore, properly declared. However, if the pro- 
grammer had written 450 nines on the coding sheet to describe 
the same picture, the coding sheet would be in error. 
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Reference 
Number Division 

D02 Data 



Message 

CONFLICTING EDITING CLAUSES 



Comments 
Only one of the following clauses may be used to edit a field: 

1. ZERO SUPPRESS 

2. CHECK PROTECT 

3. FLOAT DOLLAR SIGN 

If more than one of these is specified, the last specified clause is 
chosen for use. Complex editing should be specified by using a 
picture clause. 



D05 



Data 



CONFLICT BETWEEN PICTURE AND 
SIZE CLAUSE 



If a specified size clause conflicts with a specified picture 

clause, the picture specifications take precedence over the size 

specifications. 

Example: size is 10 conflicts with picture 9(6). The processor 

will use 6 as the size for the item defined. 



D06 



Data 



conflict between picture and 
point location clause 



If there is a conflict between a point location and a picture 
clause, the picture specifications take precedence over the 
point location specifications. 

Example: picture is 9V99 conflicts with point left 3. The 
processor will cause the decimal point to be located immediately 
to the left of the hundreds position of the field. The point loca- 
tion clause specifying that the decimal point be located imme- 
diately to the left of the thousands position is ignored. 



D07 Data 



CONFLICT BETWEEN PICTURE AND 
CLASS 



If there is a conflict between a class and a picture clause, the 
picture specification takes precedence over the class clause. 
Example: picture is 999. 

CLASS IS ALPHANUMERIC 

In this example class must be specified as numeric because the 
picture clause specified a numeric field. 



D08 Data 



conflict between picture and 
editing clause 



If there is a conflict between an editing and a picture clause, 

the picture specifications take precedence over the editing 

clause. 

For example, if the clause: 

picture is $$$9 
is used and an editing clause specifying float dollar sign is 
also used, the picture clause takes precedence over the editing 
clause. 



D09 



Data 



ELEMENTARY ITEM MUST HAVE 
SIZE OR PICTURE CLAUSE 



An element of data (elementary item) must never be subdivided. 
Each elementary item must be specified by either a size or 
picture clause in the Data Division. 



Dll 



Data 



A RECORD AREA MUST NOT EXCEED 
999 CHARACTERS 



A record may be described as containing as many as, but no 
more than, 999 characters. 



D12 



Data 



RLI MUST BE 4 CHARACTERS 



The Record Length Indicator (RLI) must be four characters 
long, including high-order zeros. 



D13 



Data 



RECORD SIZES WITHIN THIS FD 
MUST NOT CONFLICT 



D14 Data 



INVALID EDITING 



D99 



Data 



PICTURE CLAUSE INVALID WITH 
GROUP ITEM 



If a fd contains more than one level 01 item, an implied re- 
definition results in a redefinition of the first 01. If the record 
size is variable, the depending clause should be used. This 
diagnostic message is given because record lengths within the fd 
were not the same. This condition could cause an error to occur 
at object program execution time. 

The editing is not specified according to the cobol requirements. 

All editing for the entry in reference was omitted by the 

processor. 

Examples of such illegal coding are : 

1. Invalid symbols in a picture clause. 

2. The size of the item to be edited exceeds 120 characters. 

3. Zero suppression is specified for only the high-order position 
of a field. 

4. db (debit symbol) or cr (credit symbol) is not specified for 
the rightmost or leftmost positions of the field. 

Only elementary items can have a picture clause. 
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Reference 
Number Division 

E01 Data (IOCS) 



Message 

HARDWARE DEVICE MULTI-DEFINED 



Comments 

ibm 1401 Data Processing System devices can not be multi- 
defined. The example shown illustrates two combinations that 
will cause multiple-definition errors. 

Statements 1 and 2 or statements 1 and 3 cause a multiple defi- 
nition of the 1402 card punch because 1402-P is assigned to punch 
in special names. Statements 2 and 3 excluding statement 1 
will cause a multiple-definition error because two files cannot be 
assigned to the same device. 
Example: 

1. special names. 
1402-p, 4 is punch, 
input-output section, 
file-control. 

2. select file2 assign to 1402-p. 

3. select file3 assign to 1402-p. 



E02 Data (IOCS) 

E03 Data (IOCS) 
E04 Data (IOCS) 



BLOCK SIZE MUST NOT EXCEED 
OBJECT-COMPUTER SIZE 

FORM 3 RECORDS NOT PERMITTED 

BLANKS IN HEADER-LABEL ID 
NOT PERMITTED 



Blocking specified in the cobol source program must not specify 
more than the core-storage capacity of the object computer. 

cobol does not permit unblocked, variable-length records. 

Blanks in header-label id will be replaced with a period. 



E05 Data (IOCS) 



UNIT RECORD FILES MUST HAVE 
STANDARD RECORD SIZES 



These sizes must be specified for unit-record files : 
Card Reader — 80 characters 
Card Punch — 80 characters 
Printer — 100 or 132 characters 



E06 Data (IOCS) 



FORM 4 RECORDS-BLOCK SIZE 
MUST BE IN CHARACTERS 



The block size for Form-4 records must not be specified by using 
the keyword record(s). Thus, the example shown is in error. 
Example: 

block contains 

400 records 



E07 Data (IOCS) 



FILE MUST BE SELECTED 



E08 


Data (IOCS) 


BLOCK SIZE MUST NOT EXCEED 
4 DIGITS 


E09 


Data (IOCS) 


RECORD SIZE MUST NOT EXCEED 
BLOCK SIZE 


E10 


Data (IOCS) 


UNIT RECORD FILES MUST HAVE 
FORM 1 RECORDS 


Ell 


Data (IOCS) 


UNIT RECORD FILE-LABEL RECOF 
MUST BE OMITTED 


E12 


Data (IOCS) 


FILE MUST BE OPENED 



E13 Data (IOCS) 



F01 Procedure 



UNIT RECORD FILES MUST NOT 
RESERVE ALTERNATE AREAS 



END STATEMENTS NOT ASSOCIATED 
WITH THE FOLLOWING FILES 



Each file to be processed by the object program must be named 
in a select file-name entry. The name must be unique within 
the source program. 

The block size specification can contain a maximum of four 
digits, including high-order zeros. 

A record-size specification must designate more characters than 
the size specification for the block that contains the record. 

Blocked records are not permitted in unit-record files. 



The label records clause for unit-record files must be specified 
as omitted. 

The open verb is used to indicate the processing of one or more 
input and/or output files. At least one of the two clauses must 
be written. The clauses may specify that one or more files be 
opened. 

All alternate areas needed for unit-record files are reserved auto- 
matically by the processor. Thus, the programmer must not re- 
serve alternate areas for unit record files. 
Error example: 

SELECT READER ASSIGN TO 1402-R 
RESERVE 1 ALTERNATE AREA. 

At least one implicit or explicit at end statement must be asso- 
ciated with every read statement. Once an at end statement has 
been executed, an attempt to read from the associated file will 
constitute an error unless a subsequent close and open have 
been executed for that file. 
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Reference 
Number Division 



HOI 



Procedure 



Message 

INVALID USE OF SUBSCRIPTING 



Comments 

This diagnostic message occurs when invalid subscripting is used 
without an occurs clause. 
Error example: 

DATA DIVISION. 



file section. 
01 nameI 

02 NAME2f 

03 name3 
procedure division. 



MOVE NAME2 (3) TO WORK AREA 

fThe procedure statement specifies subscripting. Therefore, 
name2 must contain an occurs clause. 



100 Procedure a-field exceeds b-field 



The field being moved is larger than the field to which it is to 
be moved. High-order positions will be dropped. 



101 



Procedure 



NON-NUMERIC FIELD USED IN 
COMPUTATION 



The referenced field is arithmetic and not defined as numeric. 



102 



Procedure 



EDIT MASK TOO SMALL 



A giving, compute, or move using edited fields too small to ac- 
cept the field being placed into the edited mask will produce 
this diagnostic message. 

Example: Moving field 12345 to an edited mask $$$99 is erro- 
neous because this edit mask will accept only four characters. 



103 


Procedure 


A-FIELD EXCEEDS 18 DIGITS 


105 


Procedure 


B-FIELD EXCEEDS 18 DIGITS 


106 


Procedure 


NON-NUMERIC FIGCON USED IN 
COMPUTATION 


107 


Procedure 


INVALID SOURCE 



Fields used in arithmetic computations and expressions must not 
exceed 18 digits. 

See 103. 

Only the figurative constant zero can be used in arithmetic 
computations. 

If a source-program statement is determined to be meaningless, 
this diagnostic message is given. Following this message will be 
an expansion of the stop run literal. 
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INTERMEDIATE RESULTS MUST NOT 
EXCEED 20 DIGITS 



Fields requiring decimal alignment in arithmetic computation 
must not have intermediate results that exceed twenty digits. 
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ALPHANUMERIC TO NUMERIC MOVE 



This diagnostic message is given if a group item (declared as 
numeric) is moved to an elementary numeric field. All group 
items are classed as alphanumeric. 



110 Procedure 



INVALID SOURCE IN PRECEDING 

STATEMENT 



If an incorrect source program statement is detected in a display 
statement, this error message is given. 

Example: display on (name) is incorrect, but display upon 
(name) is the correct format. 



Ill Procedure rounded excludes left justify 

clause 



If left justification is used in conjunction with the rounded op- 
tion, justification is ignored by the processor during compilation. 



112 Procedure group items must not have 

implied decimal 



Decimal alignment is not performed when group items, classified 
as numeric, are moved. 



113 Procedure group item must not be used 

in computation 



Only elementary items can be used in arithmetic computations. 
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Reference 
Number Division 

115 Procedure 



Message 

INVALID USE OF GROUP 



117 



118 



Procedure 



Procedure 



ITEM EXCEEDS 20 DIGITS 



CLASS CONTRADICTION 
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Procedure 



INVALID USE OF EDITING 



120 



121 



Procedure 



Procedure 



SIZE OF LITERAL MUST EQUAL 1 



INVALID SUBSCRIPTING 



Comments 

1. When either of the conditionals if positive or if negative 
is used, the field referred to must be elementary. 

2. When either the conditional if numeric or if alphabetic is 
used, the field referred to should be elementary. If the fields 
are not elementary, the diagnostic message will be given to 
remind the programmer that he should review the units posi- 
tions of fields being tested for zone bits. 

A numeric field defined to be used for computational purposes 
must not be larger than twenty digits. If such a numeric field 
exceeding twenty digits is compared, this diagnostic message is 
given. An instruction to perform a non-numeric compare is also 
given. 

This diagnostic message indicates that the fields being operated 
on should be reviewed to determine if there is a contradiction in 
classes. For example, a numeric field compared to a non-numeric 
figurative constant would cause this diagnostic message to 
appear. 

Editing must be performed on data fields that appear in proce- 
dure statements with the appropriate verbs. 
Example: 

1. The field referred to by the accept verb must not have edit- 
ing. 

2. Editing must not be specified for an integer referred to by 
name in the times option of the perform verb. 

If the literal must be one character long (for example, in use 
with the examine verb), this message is given. 

Error example: 

data division. 
01 table 

02 nameI occurs 3 times size is 2 
procedure division. 

move nameI (1,2) 

The statement in the Procedure Division contradicts the declara- 
tion for nameI. 



COBOL Tape-Print Program 

Conditions may arise that the cobol processor recog- 
nizes as being instrumental in causing a failure. In 
these cases, the message system failure is printed on 
the printer. The processor then calls in a storage- and 
tape-print program. The contents of core storage and 
the tape work files are printed on the printer. 

Among the conditions that may cause a system 
failure are: 



1. An end-of-file indication was sensed by the proc- 
essor before the end of the file was reached. 

2. An excessive number of tape read or tape write 
errors occurred on the work tape. 

3. An error in COBOL-prescribed sentence structure 
occurred when coding the source program. This 
type of error is detected in the phase of the proc- 
essor that analyzes the particular part of the pro- 
gram. For example, an error in subscripting would 
be detected in phase HOI. 
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COBOL Phase Descriptions 



The ibm 1401 cobol processor has ten sections. Each 
section performs a particular function in converting the 
cobol source-program statements to Autocoder state- 
ments. 

Phase A01 

1. Reads the cobol source program from cards or tape. 

2. Assigns a sequence number to each entry. 

3. Lists the contents of each source-program card on 
the printer. 

Phase A02 

Processes the Identification Division. 

Phase AOB 

Conditions storage and reads in phase A03. 

Phase A03 

1. Conditions words and operators for further process- 
ing. 

2. Checks the source program for errors in the use of 
the character set, names, picture clauses, and word 
lengths. 

3. Checks the program for the enter verb and condi- 
tions the included Autocoder statements for further 
processing. 

Phase A04 

Searches for the various divisions of the source program 
and calls in phases A05, A06, and A07 to compress key- 
words and delete unnecessary words as follows : 
Phase A05 Environment Division keywords 
Phase A06 Data Division keywords 
Phase A07 Procedure Division keywords. 

Phase A20 

This phase is called conditionally to place Autocoder 
entries on tape 4 for future merging by the J phases. 

Phase BD1 

Diagnoses the Environment Division. 

Phase BD2 

Checks the file section for syntax errors and checks 
for duplicate entries in the Data Division (first pass). 



Phase BD3 

Checks the Procedure Division verbs for syntax errors 
(first pass). 

Phase BD4 

Checks the constant and working-storage sections of 
the Data Division for syntax errors (second pass). 

Phase BD5 

Checks the Procedure Division verbs for syntax errors 
(second pass). 

Phase BD6 

1. Calls phases BT1, BT2, and BT3 for printing diag- 
nostic messages. 

Phase BT1 Environment Division diagnostic table 
Phase BT2 Data Division diagnostic table 
Phase BT3 Procedure Division diagnostic table. 

2. Prints all diagnostic messages and determines 
whether compilation is to be suspended. 

Phase B01 

1. Conditions the source program for further process- 
ing. 

2. Converts level numbers of data description entries 
to internal level operators. 

Phase B02 

1. Builds a table of Procedure Division literals and 
level 88 values to be processed by phase Bll. Du- 
plicate literals are eliminated. 

2. Builds a table of Data Division literals and elimi- 
nates duplicates. 

Phase Bll 

1. Calculate class, size, and decimal count for data and 
procedure literals. 

2. Writes literal declarations on tape 4. 

Phase B03 

1. Builds a table of procedure names used in the cobol 
source program. 

2. If the program has an enter verb, the cobol names 
referred to by Autocoder statements following the 
enter verb are entered into the same table as the 
procedure names. 
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Phase B04 

Uses the tables built by phase B03 to convert proce- 
dure names to reference names for further processing. 

Phase BOS 

1. Builds a table of names used in procedural state- 
ments, such as redefines and depending, and cobol 
names referred to by Autocoder statements follow- 
ing the enter verb. 

2. Compresses data names, used in procedure state- 
ments, for further processing. 

Phase B06 

Matches cobol source programs data names and spe- 
cial names with the processor-produced compressed 
names and generates a unique compressed name for 
each name used in the cobol program. 

Phase B07 

Builds a table of processor-produced compressed names 
used in qualification. It also builds a table of declara- 
tion names and procedural names used in qualification. 

Phase BOS 

Develops a unique compressed name from the quali- 
fied names used in procedure statements. 

Phase B09 

1. Lists all cobol source names according to Environ- 
ment Division special names, data names, and pro- 
cedural names categories. Generated sequence num- 
bers are listed with these names. 

2. If the source program contained errors in names, the 
errors are detected and phase BIO is called. 

Phase BIO 

1. Analyzes errors detected during the execution of 
phases B04, B06, and B08. 

2. Source names which have multiple definitions or are 
undefined are listed on the printer. 

Phase C01 

1. Phase C01 is executed if a special-names paragraph 
appears in the source program. 

2. Generates statements to equate Autocoder names to 
cobol names. 

Phase C02 

Processes level 88 items. 

Phase C03 

Processes data values if level 88's are not used in the 
source program. 



Phase D01 

1. Analyzes picture clauses to determine size, class, 
decimal count, and editing. 

2. Builds a table of all level 01 items for further proc- 
essing. 

Phase D02 

1. Builds a description for each Data Division entry. 
The information in the source declarations is used 
as a basis for building this table. 

2. Updates these descriptions with information ob- 
tained from the picture analysis. 

3. Generates diagnostic messages if discrepancies are 
detected. 

Phase D03 

1. Phase D03 is called if editing is used. 

2. Builds and declares edit masks and completes the 
edit section of the data description. Writes editing 
masks on tape 4. 

Phase D04 

1. Establishes the group item size by totaling the sizes 
of elementary items. 

2. Provides padding for occurs clauses. 

3. Controls redefinition. 

4. Generates origins, storage declarations, and equates. 

5. Processes subscript levels. 

Phase D05 

1. Controls the placement of word marks for each 
entry. 

2. Processes file record sizes and equates. 

3. Processes nested redefinition entries. 

Phase D06 

1. Separates data and places delimited items from D05 
on the proper output tape. 

2. Expands macros and writes storage declarations on 
tape 4. 

Phase E01 

Produces the job card for the object program. 

Phase E02 

1. Examines the source program for control and iocs 
information. 

2. Stores this data, in an abbreviated form, in core 
storage. 

3. If no files are declared, phase E04 is called. 
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Phase E03 

1. Executes any required internal computations, based 
upon data stored by E02. 

2. Completes diocs-dtf information by examining all of 
the data obtained from the source program and se- 
lecting the appropriate implied specifications. 

Phase E04 

1. Analyzes the legality of the source data. 

2. Selects the appropriate set of diagnostic messages. 

Phase E05 

1. If no files were defined: 

a. Writes ctl and org statements on tape unit 4. 

b. Writes diagnostic message indicators on tape unit 
4, if appropriate. 

c. Calls phase F01. 

2. Writes ctl and diocs statements on tape unit 4. 

3. Writes diagnostic message indicators, if appropriate. 

4. Writes diocs entries on tape unit 4. 

Phase E06 

Writes da entries on tape unit 4, if appropriate. 

Phase E07 

Writes dtf entries and appropriate diagnostic message 
indicators on tape unit 4. 

Phase F01 

Processes these portions of the Procedure Division: 

a. open — Deletes input and output designations. 

b. close — Deletes rewind options. 

c. write — Converts write to write from if such form 
is appropriate. 

Phase F02 

1. Processes conditional expressions. 

2. Processes compute statements. 

Phase F03 

1. Processes conditional expressions. 

2. Processes read statements. 

Phase F04 

1. This phase is called if the perform verb is used in 
the Procedure Division. 

2. Generates labels for names associated with the per- 
form statements and inserts them into the symbolic 
entries developed from these perform statements. 

3. Associates the last name in perform statement with 
the label and builds a table of these elements. 



Phase F05 

1. Searches for procedure names and inserts any nec- 
essary labels such as return-linkages. 

2. Searches the table built in phase F03 for the proce- 
dure names found, and conditions labels for further 
processing. 

Phase G01 

1. Breaks down the following cobol source statements 
into macro form: 

a. ADD 

b. SUBTRACT 
C. MULTIPLY 

d. DIVIDE 

e. MOVE 

f . perform (options 1 and 2) 

g. READ ( no AT END) 

2. Conditions perform (options 3, 4, and 5) and read 
(at end) for further processing. 

Phase G02 

1. Processes arithmetic operators in arithmetic expres- 
sions and compute statements. 

2. Processes relational operators in if and until ex- 
pressions. 

3. Passes generated labels and logic connectors to 
phase G03. 

Phase G03 

1. Processes conditional sentences. 

2. Ties in generated labels for read linkage, until, and 
if with conditional sentences. 

Phase G04 

1. Builds macro statements. 

2. Creates linkage macros for perform options 3, 4, 
and 5. 

3. Determines the number of temporary object-ma- 
chine storage areas needed for arithmetic compu- 
tations. 

Phase G05 

Eliminates redundant linkages in relational statements. 

Phase G06 

Eliminates redundant, generated, temporary, object- 
machine storage areas. This fully optimizes arithmetic 
statements. 

Phase HOI 

1. Collects data, device, switch, and literal descriptions 
and converts them to table entries. 
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2. Processes subscript macros. 

3. Inserts the appropriate data name in the symbolic 
statements after each occurrence of a subscript data 
name. 

Phase H02 

Prepares storage for phases H03, H04, and H05. 

Phase H03 

1. Initializes the table of data descriptions. 

2. Clears storage. 

3. Calls phase H04. 

Phase H04 

1. Builds a table of data descriptions in storage. Entries 
that have already been processed are deleted. 

2. Calls phase H05 when the Procedure Division is 
recognized. 

Phase H05 

1. Merges data descriptions after each name in the 
Procedure Division that has a description. 

2. Returns to phase H02 if necessary. 

Phase 101 

1. Selects the appropriate model statements for fixed 
expansions, for the advancing option, for stop run, 
and switches. 

2. Conditions relational macros for further processing. 

Phase 102 

1. Establishes parameters for display, accept, and go 
to depending routines. 

2. Expands if numeric and if alphabetic macros. 

3. Selects appropriate model statements for the stop 
literal statement. 

4. Makes a diagnostic scan of arithmetic expressions. 

Phase 103 

1. Conditions input data for further processing and 
scans data for validity. 

2. Conditions giving, positive, negative, and relational 
macros for further processing. 

3. Makes a diagnostic scan of arithmetic expressions. 

Phase 104 

1. Selects appropriate model statements and subrou- 
tines for move and move all macros. 

2. Conditions positive and negative macros for further 
processing. 



Phase 105 

Conditions arithmetic macros for further processing 
by 106. 

a. Keeps a record of intermediate accumulators. 

b. Calculates decimal alignment. 

c. Optimizes model statements to be selected. 

Phase 106 

1. Selects appropriate model statements for arithmetic 
macros. 

2. Conditions relational macros for further processing. 

Phase 107 

1. Selects appropriate model statements for all arith- 
metic macros that have not been processed up to 
this phase. 

2. Selects appropriate model statements for the posi- 
tive and negative macros. 

3. Makes a diagnostic scan of giving and giving 
(rounded) macros. 

4. Processes rounding, editing, and decimal alignment 
of giving macros. 

5. Selects appropriate model statements for giving 
macros. 

Phase 108 

1. Determines the type of comparisons to be set up for 
relational statements. 

2. Calculates decimal alignment for these comparisons 
if it is necessary. 

3. Selects appropriate model statements and subrou- 
tines. 

4. Makes a diagnostic scan of relational macros. 

Phase 109 

1. If no IOCS is specified, Jl is called. 

2. Translates diocs and dtf entries, read from tape 
unit 4, into an internal macro format. 

Phase SP1 

Copies the remainder of the getx tape into the putx 
tape. 

Phase 110 

1. Outputs call for Autocoder statements by expanding 
the diocs and dtf macros. 

2. Controls the manipulation of the diocs and dtf logic 
tables. 

Phases S01 through SOS 

Are diocs logic tables. 
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Phases T02 through T09 

Are dtf logic tables. 

Phase SP2 

Copies the remainder of the getx tape onto the putx 
tape. 

Phase J01 

1. Substitutes parameters into model statements se- 
lected from the library. 

2. Provides for reiteration if all of the model statement 
tables will not fit into core storage. 

3. If no IOCS is specified, the di and dt tables are not 
retrieved. 

Phases D11 through D19 

Are diocs Autocoder model statement tables. 

Phases DTI through DTO 

Are dtf Autocoder model statement tables. 

Phases JE2 through JE6 

Are cobol Autocoder model statement tables. 

Phase SP3 

Copies the remainder of the getx tape onto the putx 
tape. 

Phase JA7 

Conditions operation codes and substitutes constants 
into the Autocoder instructions. 

Phase J07 

1. Sets up routing linkages. 

2. Calculates subscript addresses. 

3. Generates incld for subroutines. 



Phase J08 

Selects from tape 4 the items listed and writes them on 
put tape in this sequence: 

1. job card 

2. ctl (control) card 

3. org (origin) card 

4. diocs entries 

5. dtf entries 

6. Procedure literals 

7. Edit masks 

8. Storage declarations 

9. File areas 

10. Generated incld 

11. Generated constants, index registers, temporary 
storage accumulators, and tally registers 

12. Data literals and data moves 

13. Procedure instruction from get tape. 

Phase J09 

1. Prints diagnostic messages that occurred because 
conflicts exist between the entries in the Data Divi- 
sion and the Procedure Division. 

2. Merges Autocoder symbolic statements with diag- 
nostic messages. 

3. Calls in phases JT1-JT3. 

Phases JT1 through JT3 

Contain IOCS data and procedure diagnostic tables. 

Phase J 10 

1. Writes Autocoder statements on tape unit 4 for as- 
sembly of the machine-language object program. 

2. Merges the cobol source program with the Auto- 
coder statements if the source symbolic listing op- 
tion is exercised. 
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COBOL Subroutines The subroutine chart outlines each subroutine and 

The subroutines used by the 1401 cobol processor are gives the subroutine name with the reason the subrou- 
described here. tine is called by the processor. 



Subroutine 




(Mnemonic) 


Subroutine 


XMN 


Examine 


XXJ 


Subscript- 1 


XXK 


Subscript-2 


XXI, 


Subscript-3 


YAQ 


Alpha compare 


YCL 


Figcon compare 


YIN- 


If numeric 


YIP 


If alphabetic 


ZAX 


Accept 


ZDY 


Display 


ZET 


Editing 


ZFZ 


E xponentiation- 1 


ZGP 


Go to depending 


ZML 


Move all 


ZMR 


Move record 


ZZZ 


Basic package 


ZXZ 


E xponentiation-2 



Reason Subroutine Is Called 
Use of the examine verb. 

Use of one-level subscripting. 

Use of two-level subscripting. 

Use of three-level subscripting. 

Alphabetic record with subflelds compared to any data item. 

Field whose size is greater than 1 being compared to a figura- 
tive constant whose size is greater than 1. 

Any alphanumeric field whose size is greater than 1 being 
tested for a numeric value. 

Any alphanumeric field whose size is greater than 1 being 
tested for an alphabetic value. 

Use of the accept verb. 

Use of the display verb. 

Use of: 1. cobol zeros 

2. Floating + or — 

3. db or single + 

Raising an expression by an integer exponent. 

Use of depending option of go to statement. 

Use of all option of move verb. 

Use of a record with subflelds in a move statement, except in 
the case when the other field is a record of equal length. 

Used with any subroutine. 

Raising an expression by a non-integer exponent. 



Halts and Messages 

Compilo-Time Halts 

Contents of 
I-Address 
Register Phase 

056 Program Boot 



155 Any 



698 Any 



Message Explanation 

None Tape transmission error occurred 

while trying to load the system. 

None Sense switch B should not be on 

during compilation of a cobol pro- 
gram. 

None An error has occurred in the getx 

subroutine. 



Operator Action 

Rewind the system tape on unit 1 
and press the Tape Load key. 

Turn off sense switch B and press 
the start key to continue. 

Do a manual branch to 359 to ob- 
tain storage and tape print. 
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Contents of 
I-Address 
Register Phase 

808 UPDAT 



842 UPDAT 

( Systems Run ) 



Message 



None 



INCORRECT UPDATE 
CARD, OR PHASE 
NOT FOUND 



Explanation 



Operator Action 



An excessive number of read er- 1. Press start key to try to reread 
rors on tape unit n. the record, or 

2. Change the tape and recompile. 

A deck of updat cards is in error. Correct deck of updat cards. 



842 UPDAT 

( Systems Run ) 

892 Any 



END OF TAPE 
ON UNIT 2 



End-of-reel occurred on tape unit 
2 during system run. 

A read error has occurred on tape 
unit n. This halt indicates ten 
failures to read correctly. 



Use larger reel of tape. Restart 
system run. 

1. Press the start key to try to re- 
read the record, or 

2. Change the tape and recompile. 



1616 



BD4 



None 



End of program sensed too soon. 



Do a manual branch to 359 to get 
storage and tape prints. 



Tape-Print 
Program 



READ ERROR-PRESS 
START TO REREAD OR 
RESET START TO SKIP 
RECORD 



(Self-explanatory.) 



If the record cannot be skipped, 
branch manually to 1729 to get the 
next tape file. 



2031 BD6 



COMPILATION 
SUSPENDED 



Invalid source program statements 
have been detected. 



Correct the source deck as indi- 
cated by the diagnostic messages 
and recompile the program. 



2094 Control Program 



2081 BD6 



NO CONTROL CARD- 
RELOAD CARDS AND 
PRESS START 



PRESS START TO 
CONTINUE 



2149 Control Program None 



The first cards of a run must be: 

1. cobol run (for compilations), 
and 

2. systems run (for updating or 
copying the system). 

Source program statements require 
diagnostic messages. 

The I-O check-stop switch is off, 
but a card-read error has been de- 
tected. 



Insert the correct control card and 
press the start key to continue. 



Press the start key to continue. 



Run out the cards, turn on the I-O 
check-stop switch and restart. 



2221 Control Program cant read unit 1 



2669 J10 



end of reel 



2821 Control Program None 



Systems tape cannot be read. 



An end-of-reel condition was de- 
tected while Autocoder statements 
were being written on tape 4. 

An end-of-reel condition was de- 
tected during the systems run. 



Press the start key to reread. Re- 
extract the system tape from the 
pid tape. 

Replace the reel on tape unit 4 
with a reel containing more tape 
footage and restart. 

Replace the reel on tape unit 2 
with a reel containing more foot- 
age and restart the run. 



2757 BIO 



2767 J10 



RUN DISCONTINUED 



None 



Source - program statement error 
caused compilation to stop. 

This halt permits the user to exer- 
cise one of the extra output options 
at the end of job. 



Correct the source program and 
restart compilation. 

Arrange the sense switches and 
press the start key. 



2818 


Jio 


3262 


J07 


3486 


1 

SP2 
3 



END OF COMPILATION- 
AUTOCODER ON TAPE 
UNIT 4 

None 



None 



Final halt at end of job. 

End of program is sensed too soon 
(processor error). 

End of reel condition on tape 5 or 6. 



Do a manual branch to location 
359 for storage and tape prints. 

Remove the reel on the affected 
tape unit. Replace the reel with an- 
other containing more tape footage. 
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Assembly-Time Halts 

For halts that can occur during the assembly of the 
machine-language object program, see Autocoder (on 
Tape) Language Specifications and Operating Proce- 
dures, IBM 1401 and 1460 (C24-3319). 

Object-Time Halts 

For halts that can occur during execution of the object 
program, see Input/Output Control System for IBM 
1401 (C24-1462). 

Two additional error messages can occur. These are 
associated with error halts in the Z X Z subroutines: 

Message Explanation 

minus value Negative bases cannot be raised to other 

than an integer power. 
value too large The maximum length of a value used for 
computation is 18 digits. 

If the start key is pressed when either of these halts oc- 
curs, the answer developed from computation will be 
zero and the program will continue. 

Sample Program: Table of Salaries 

This program computes a set of values, arranges them 
in a table and prints them. 

A monthly salary of $500 is used to compute the 
corresponding weekly and annual salaries, and the 
resulting figures are printed in columns titled Weekly;, 
Monthly, and Annual. The monthly salary figure is 
then increased by $10 and the procedure is repeated. 
This process is continued until the table shows the cor- 
responding figures for all monthly salaries from $500 to 
$1000 at increments of $10. 

The format for the printed table is : 



Print positions Heading 
1-46 blank 

47-52 WEEKLY 

53-55 blank 

56-62 MONTHLY 

63-65 blank 

66-71 ANNUAL 

72-132 blank 

The corresponding figures are printed below the head- 
ings. 

To run the object program after it has been com- 
piled and assembled: 

1. Place the assembled deck for the Table of Salaries 
program in the card reader. This deck has 70003 
punched in columns 76-80. 

2. Ready the printer. 

3. Turn the I/O check-stop switch on. 

4. Press the load key on the card read-punch. 

5. Press the start key. 

The salary table will be printed followed by the mes- 
sage table values are correct if all the calculations 
are correct. If the totals do not balance, the message 
table values are not correct will be printed. 

The source-computer and object-computer entries 
for this program should be changed, if necessary, to 
indicate the storage size of the 1401 used to compile 
and run this sample program. 

Figure 5 is the source program as it is written on the 
cobol program sheet. 

Figure 6 shows the actual Table of Salaries printed 
during the running of the object program. 
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i i i j/\0,-,PJ?,/ JJ,T,-,S,T,0,#,A,G,E\., i i ■ ■ ■ r ■ ■ i > ■ ■ ■ t ■ i f ■ i ■ ■ ■ 




OfaO 




0<8 v /AcT\-\C\0MP\UT\e<A\.\ ,/ vSMs/ <*\0,/ \ i i . • t t • • ■ . ■ i • ■ 




'P\<> 




, , , X SHFM#*Y\ &,/*& />0&4&,S&, 4,O0, ,7-MM 0,0,0,4 




/,/ y O 




i i i //,0\~ \oy ^<#\£/> ,0\ i i i i i i i i i i i i i i i i i i iii 




/|*|0 




i i i W\Os-\A\#\/ \MA,-£\T,0,/i,A&^, . , iii,iiii,i ii, i i i i i 




/£,0 




/N,P,(/,rr,o,u,r,p s (/r, s,/=;c,r,/,oM., , , , , , ,,,,,,, , 




/,4,o 




F,/ ,L\£,-\C,0\A/,7',£\0,L,. , iii,!!!,,!!,,!,, i , i i i i , i i i i i i i 




'PP 




, i i S^,/-^,C,T, iSrf ,/. *A &)/, — tf,/ ,L ,£, i i i i i i , , , i i i , , , , , , i , i { , i i , | 




/,<L0 




i i i rf\S\5\/ ,G\M / fr ,0,3 ,— ^P, . t , , i , , , , , , , , , i i i 




i i 




i 
i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i , i i i i i i i 




/7\0 




0/t7~iA, iD\t \V,/ \$\t ,0,tV\ ,| ,1111,1 i i i i i i i i i i i , i , i 




'P\0 




n'i*iA \S\£,C,T,/,0//, t i i i i i i i i , , , i i , i i i i i i i i i i , i i i i i i i 




/\9\0 




r,0, i ,Srf\LJI\&,Y\— ,F,/ ,£.,£, ii i i , , i i 




20\O 




, , , [ J.St£,£lL, ,£<E;C0,4,D,S, ***& ,0M/, T,T,£U>, ,,,,,, 




2/i0 




, , , pArj, ,fi,e,c,o,*p, ,/f, ,SAiA«,y,-*£-c<o#,A. 




2,2,0 




O,/, , \S,A,L,A,Ay,-££-,CO*,l>, ,S,/,Z& ,/,S, ,/,<?,<?, J x /.J>,tf l /}MW£-J2,/,C ,D,/$,PJL>Ay 


,c//s9&A,c,r,e;/i,s,., , , 


1 1 




1 

1 1 1 1 1 1 1 1 1 1 1 1 , 1 1 , 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1. L....I, 1 1 l_l_L,l J — 1 



Figure 5. cobol Sample ( Part 1 of 4 ] 
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PROGRAM SSMAA/tt - /£M- /40/^»t/>L£ 


SYSTEM / ^ fo/ 


SHEET Q2 OF ^ 


PROGRAMMER J J^^ 


DATE 


' 0ENT - li**.**^ 


SERIAL 
4 6 


1- 
:z 
o 
o 
7 


A jB 

8 ,12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 


0/tO 


F 


H/\0\A x K x / x A/\<5\-tS{r\0\G x A\G\£\ ,S,£~,C t 7~,/ t O,A/ x .\ ■ t i • i i i i i i i i i i i 




I i I i i I 








0,Z,0 




7,7, i \T\0\T\A\L\-\A\ i i i i i i I 


,P,/,C,T,OA,£, ,?,(,6,),V,9,9, ,V,A,L,U,£, ,Z,£AO,., , 




l l 1 1 I l 








o&o 




7\7\ i ,T,0,T,A,L,~,&, i i i i i i i 


a< ,c,t,</a,£, 7, CO y, 9 \9, ,V,A,L K U,£, ,z,£a,o,., , 




l I 1 1 l l 








0&\0 




7,7, \ \T\07 '\A\L\—\C\ i i i i i i i 


,P,/,C,T,OA£, ,9,C,6,),V,9,9, VA,L,l/£, Z,£/l,0,., , 




l I I 1 i i 




i i 




O&Q 




77, , \W£,£,KLy,~,P,Ay, , , , , 


/>7 ,c,7js,&,£, yyyyyy,- , ,,,,,,,, 












Oy6,0 




77, , W,0^,T,U,LY,-,PAy, , , , 


ir,/ ,C\',&ifl\£, 7 777,7,',' I • i i I i i i I i i i i i l 




i 1 1 I i i 








07,0 




77, : */i,A/Mw,L,-,p,Ay, i , , , 


,^7 ,Cy,£/,£,£, ,9,9 7,9,9,V,9,9,>, i i i i i i 




I i I 1 I i 








Op,0 




O/i , \S,A,L,AA/,£,S,. S 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




l 1 1 1 i i 








0,9,0 




i i i ,0,2, ,F,/,i.,L,£A i i i i i 


P7,C,T,U,P,£, A(,*,6,J, , , , ,VA,L,U,£, ,5,P,A,c,£,. 




1 i i l i i 








/0\O 




i i i \0\Z { )y£\£,A(,/.y\ 


P7 ,c, 7, (/,£,£, ,Z,Z,Z].\9,9,*, i i i i i i i i i i i i i 




1 l 1 I 1 1 








t\'\° 




i i i |<?|2| ,£,/ ,£-7£A i i i | i 


j>,/ ,cy, (/,#,£[ /i,aa v,a,lm,£, ,s,p,A,c,e,. 




I 1 i I i i 








/ S 2 S 




, , , \o,2, MoM7M<ty i , , , 


,",' ,C,7 ,(/,&,£, ,Z,Z,Z,Z,> ,/,/,» , ii i i i i 




l I l l i i 








'?\0 




i i i \0\2\ ,£,/ ,l.,L,£A i i i i i 


,P,/ ,C,7,U#,£, AAA, , VAL4/& ,S,PA,C,£,. 




l l 1 l I l 








'\4,o 




, , , \0,2, AWA*- 


,P7,cyyA£, l Z\Z l z l z l Z t , t 7iT,m , iii ii 




I i i I I I 








/f,0 




i i i ,0,2, ,P7 ,l,L,£A, i i i i i 


,p,/ ,c,7,i/a,£: ,a,C,27,) va,l,(/,£, ,s,PA,c,e,. 




l I i l I I 








/ x 6p 




C,0,A/,s\T,A,A/,T, S,£,C,T7,0,M„ , 


i i i i i i i i i i i i i i i i i i i i i i i i 




I i i i i i 








'\7A 




77, , \c,OM~A , ,P7 ,C S T,U,Z,£, 


9,C,6,~),V,9,9, , , i 7A,L,U,£, 7,5, ,0,0,8,8, 2,6,., <>,9 


• i 


i I I i i i 








/,8,0 




77, , x £,OM-,3, , A7,C 7, </,*,£, 


,9,C,6,')y,9,9, , , , ,VAL,U,£, ,/,s, ,o? x a,2,£,o x .p K o 


. . . 


1 I i i | 1 








'V,o 




7,7, , \c,0,A/,-,C, , ,P,/,C7,17,P,£, 


,9,C6,)y,9,9, , , , yAl,(J,£, ,/,S, ,4,S,9,0,op,.fi,0 


• I 


i I i I i 1 








Z&,0 




,/ i i /V,£,5,G, • i i i i i i i i i i 


i i i i i i i i i i i i i i i i i i i i 




I i i i i i 








2\'\d 




,2, , ^,t,L,L,£,P, &,/,Z,£\ AO, 


A,LA#A,6\£,T,/,C, ,C,//,A#,4,C,T,£,e,S, , ,VA7,</,£, 


/,s, 


S,PAC,£-,S, 








2&\0 




,2, , ^MO,H< , , £,/,Z,£, ,2,6, 


A,i,P//A,£,£,r l / ,c, ,c//AAACys-AS , , , 




i i i i i i 








2\3\0 




,/, i ,D,5 ,P,r,., i i i i i i i i i 


i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 




i i i i i i 








2tf,0 




,2, , \f,/,L,l,£,* ,S,/Z,£, ,4,0, 


At-PJ/Afi^y/C, ,Cf/A<<?A,cy£;*,S, , y,A,/.y<£, 


/& 


S\PAC\£\S, 








2^0 




,2, , \PAS,A/,K , fV,ZA #?, 


A*./*/* A&tt' ,c, cwjzAerf,*?,', 




i i i i i i 









Figure !5. cobol Sample ( Part 2 of 4) 
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PROGRAM s****/*s - /3M- MO/ ^tr/*.*- 


SYSTEM y ^ 0/ 


SHEET as OF ^, 


PROGRAMMER J <S OA/ ^ 


DATE 


IDENT. 73 , , _ , 80 

iS.A./Li/ii«,/,£iS 


SERIAL 
4 6 


■z 



7 


1 

A 'B 

1 

8 |I2 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 


o,/,o 




,/, , WuFAM/MG 


•1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


o#,c 




,2, , ',A,/,Z,A£& 


&/&& ,4,6, A\4JWA4&r l / ,C, £J/A^A\C,T,£A,S, i i ,VAL,(/& ,/,S, sSJ>,4,C,£,S,.\ , , 




0f,O 




2, 1 /f^i^i/^i/iK 


s,/,z,£, , ,6, /i,Lj>//,As,£;r,/,c, vaav& i/,s, ft/fAJstyW ,,,,,, 




0,4 A 




1*1 1 \T\/\£-\L\e/(\ 


$,/,Z,£, , 3, AsAP#A&£TSC, ..,.,.,..,.,. VAiU/A ,/i5, &AC&S,., , , 




0,^,0 




,2, , W,o,MT,//Ar 


' ,5,/,Z,£, , ,7, A\L,PSA3&r,/,C, \/A,l,l/,£, ,/,S, / MO ,A/,r,#,lX J , , , , , 




0,6,0 




,2, , 'f,/,£,L&% 


?,/?,£, , ,3, A^,P^A3,£-,7-,/,C, ,,,,,,,,,,,,, YAL,U,£, ,/,5, ,5,PA,CAS,., , , 




0,7,0 




2, , AS/WAS-, 


?,/,z& , ,« A^^/Z^A^r,/^ \S,A*y,£; ,/,s, ,'awaa j >-, . 1 , 




0,8 y o 




,2, 1 ,r,/,/.,L,£,/?, 


,S,/,Z,£-, ,2,9, A,£AAAA£7,/,C, ,,,,,,,,,,,,, YAL,U,£-, ,/,5, ,S,P,/),C,£,S,., , , 




1 1 




1 
> 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




0,9,0 




P^O,C\£,D,i/A,£ ,D 


/ y x /,S\/ ,o,A/, ,, 1 1 1 1 1 v 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




/\0\0 




s,rxdri., ,o,p,£,m ,o,(/,r,A,c/,r, ,s,AXAA,y,-,£;/,L,£:., , , , , , 




/,/,a 




, , , 'WA,/,r,£[ ,s^j.s>Ay-,#,£;c,oj!,D, ,£A0M #£A&/M6s £&/*&£& AA^A/<c//<^, &, ,zy^£;s,„ 




/£,0 




1 i 1 J ? \£J?\F,0AM, ,C/},^,C l 6^^,^,7^/p/V,S i 1 1 1 1 1 , 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




/j,o 




1 1 1 Ytn&i\f\M.o\ \ /f/\Ofl/,/Jf,l m ,r,-',Pfiy, 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 111 




/f,o 




1 1 1 ^\&\0<rf\ \3\0\0, 1 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




A*\o 








/0,O 




, , , ^Mr,/,£, s/,omt//,l,)<- ,AAy, ,/,s, ,oA,eA,r,£,/z, ,tmam ,/ ,0,0,0,., , , , , , , 




'?\° 




, , , \/,£, ,T,0,T,A,L,-,A, ,= , ,C,0M~A SIMA ,T,OJ\A,L,-& ,= , &0,M-\S, ,A^A, ,r,0,TA,L~,C, ,-, ,C,OM-C, 




/,8 s O 




, , , y^ \i/,£, ,< ,t,/ial,£; yA,L,v,£-,s, a,*,*, cp^^cr,*, ,r,o, ,s,h,om , , , , 




/,9,0 




, , , ^,/,T,£, $A^AA)r<rA£C0AP, ,AAoM MFS& AfT&X A0y/lM?Srf6, ,2, ,£,///AS, . . . . . 




2,0,0 




1 1 1 A\£,S\£\ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




2,/, a 




, , , W,oy,£[ ,*,rj#/.& y,/i,t.yj?& a&£ mot, ,c,oag&gt, 1 ', ,r,o, ,p,*fMT, 




2,2,0 




, , , y #j>,/,r,£; sa,*aa,X-,*,£,c,oa/>, ,f,#,oM As/>y, ,aat,£,«, Ai>yA*/,c,' ,K<s, ,2, ,/,/,/^^J,., , , , , 




2,3,0 




1 ( 1 ,C,£,0,S,£, ,SA\4-A&\r\~ ,P,/^i.,£[ ., 1 1 1 1 , 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




2 \ 4 ° 




1 1 1 $7~\0\P\ ,&,(//*,. ,,,,,,,, 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 





Figure 5. cobol Sample ( Part 3 of 4 ] 
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O0<4 


Saul./} /%/£■& - /&M- /Vo/ ^S^ /*?/?/. j=- 


SYSTEM /jtQ/ 


SHEET ^ OF ^ 


PROGRAMMER / * ,_ „ 


OATE 


IDENT. 73 „ . - - . ,,80 


SERIAL 

4 6 


i-' 

Z 
O 

o 

7 


A !B 

8 ,12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 


<VA 




\Cj4/., 


C l C/ t Z. l ^T i / l O ] M l S { . l i i i i i i | i i i i i i i i i i i i i i i i i i , i i i 






1 


















1 1 1 1 


o&o 










\camwta tff&Kiy-j>jy. ,=, 3, ,*, MoMTMttf-i/wy, ,/ 


/ 


3, 














1 1 1 








1 1 






0\3& 










\coMWyA aWAAA-AA* ,=, ,/,2, ,*, AAAAAAK-A^y , 


















1 1 1 














OftO 










Wfly& maaaa*~aaK ja mAKiy ,/a ja^aa/aa , 


















1 1 1 








1 1 






oaa 










froyA, Moyjj/tyrMy ta MM7riiy ytf ?AA*A'AA 
































o&o 










*Moy t £i AWyAL-wy TA AAAAAA SM SA/A&'Afr . 


















1 1 1 














07P 










\4A4 WAAAAy-AAK ,77*3 T&TAA-A . . 


















^A L -LJ 














Oyfp 










'AA0, /vwyAAX-AAy y>a J-ATAL-& , , , , 


















1 1 1 














ofto 










Aj>& AAAJAtrAAK TA ^rAA-A , , 


















1 1 1 














/pp 










yA/,r^ iSAUAv'i-A&CiOitiA y&oM tSAiA^,/ tt, ., i i i , 


















_L J_ J_ 














1 1 










1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
































1 1 










1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 t 1 1 1 1 1 
































1 1 










1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 










. J 








L 1„L 1 














1 1 










1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 












LL 1 .._. 


J.,.1 _L 
























1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


















1 1 1 














1 1 










1 1 1 1 1 1 1 1 1 Ill 1 I 1 1 


III 1 1 1 1 1 1 1 1 1 


















1 1 1 














1 1 










1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


































1 1 










1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 1 1 1 1 


III 1 1 1 1 1 1 1 


















1 1 1 






■ 








1 1 










1 ! 1 1 1 I 1 1 1 1 1 1 1 I | 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


















1 1 1 














1 1 










1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


















1 1 1 














1 1 










1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


















1 1 1 














1 1 










1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


















1 1 1 














1 1 










1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


















1 1 1 














1 1 










1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


















1 1 1 














1 1 










1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


















1 1 1 















Figure 5. cobol Sample ( Part 4 of 4 ) 
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' WEEKLY 


MONTHLY 


ANNUAL / 


115.38 


500.00 


6000.00 


117.69 


510.00 


6120.00 I 


120.00 


520.00 


6240.00 \ 


\ 122.30 


530.00 


6360.00 \ 


1 124.61 


540.00 


6480.00 ) 


' 126.92 


550.00 


6600.00 / 


129.23 


560.00 


6720.00 / 


131.53 


570.00 


6840.00 


133. 84 


580.00 


6960.00 1 


136.15 


590.00 


7080.00 \ 


\ 138.46 


600.00 


7200.00 \ 


1 140.76 


610.00 


7320.00 J 


143.07 


620.00 


7440.00 / 


145.38 


630.00 


7560.00 [ 


147.69 


640.00 


7680.00 1 


150.00 


650.00 


7800.00 \ 


\ 152.30 


660.00 


7920.00 \ 


1 154.61 


670.00 


8040.00 


156.92 


680.00 


8160.00 / 


159.23 


690.00 


8280.00 / 


161.53 


700.00 


8400.00 


163. 84 


710.00 


8520.00 1 


166.15 


720.00 


8640.00 \ 


\ 168.46 


730.00 


8760.00 \ 


1 170.76 


740.00 


8880.00 


1 173.07 


750.00 


9000.00 / 


175.38 


760.00 


9120.00 / 


177.69 


770.00 


9240.00 f 


180.00 


780.00 


9360.00 1 


182.30 


790.00 


9480.00 \ 


\ 184.61 


800.00 


9600.00 \ 


186.92 


810.00 


9720.00 


/ 189.23 


820.00 


9840.00 / 


191.53 


830.00 


9960.00 / 


193.84 


840.00 


10080.00 [ 


196.15 


850.00 


10200.00 1 


198.46 


860.00 


10320.00 \ 


200.76 


870.00 


10440.00 \ 


| 203.07 


880.00 


10560.00 


f 205.28 


890.00 


10680.00 / 


207.69 


900.00 


10800.00 / 


210.00 


910.00 


10920.00 1 


212.30 


920.00 


11040.00 


214.61 


930.00 


11160.00 I 


216.92 


940.00 


11280.00 \ 


219.23 


950.00 


11400.00 \ 


221.53 


960.00 


11520.00 


223.84 


970.00 


11640.00 / 


226.15 


980.00 


11760.00 / 


228.46 


990.00 


11880.00 


230.76 


1000.00 


12000.00 1 



TABLE VALUES ARE CORRECT 



Figure 6. Table of Salaries 
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